home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Phone & Address Stuff / Tele Log / Dial Script(read docs) next >
Encoding:
Text File  |  1987-11-23  |  750 b   |  28 lines  |  [TEXT/ttxt]
  1. on mouseUp
  2.   if first char of selection is in "(123456789" then
  3.     get selection
  4.   else if first char of msg is in "(123456789" then
  5.     get msg
  6.   else get first line of field "Phone Number"
  7.   if it is not empty then
  8.     put it into PhoneNumber
  9.     put first line of field "Name and Address" into phoneName
  10.     phone phoneNumber,phoneName
  11.   end if
  12. end mouseUp
  13.  
  14. on phone phoneNumber,phoneName
  15.   visual effect zoom open
  16.   go to "Phone"
  17.   dial phoneNumber
  18.   set lockScreen to true
  19.   go to last card of "Telephone Log"
  20.   doMenu "New Card"
  21.   put phoneName into field "Person"
  22.   put phoneNumber into field "Number"
  23.   put the time into field "Start" --  start timer
  24.   global StartTime
  25.   put the long time into StartTime
  26.   set lockScreen to false
  27. end phone
  28.